﻿Imports AccesoDatos

Public Class Grillas

    Public Function CboProveedor(ByVal strIDProv As String, ByVal strRUCProv As String, ByVal strNOMProv As String) As DataSet
        Dim dsConsultaDatos As DataSet
        Dim objCom As New BaseDatos
        Dim Parametros(,) As Object = {{"@ID", SqlDbType.VarChar, UCase(strIDProv)}, _
                                       {"@RUC", SqlDbType.VarChar, UCase(strRUCProv)}, _
                                       {"@NOMBRE", SqlDbType.VarChar, UCase(strNOMProv)}}
        dsConsultaDatos = objCom.ExecSPDataSetCP("SP_BANDEJA_PROVEEDOR", Parametros)
        Return dsConsultaDatos
    End Function

    'Public Function CboProducto(ByVal strIDProd As String, ByVal strGrupo As String, ByVal strNOMProd As String) As DataSet
    '    Dim dsConsultaDatos As DataSet
    '    Dim objCom As New BaseDatos
    '    Dim Parametros(,) As Object = {{"@ID", SqlDbType.VarChar, UCase(strIDProd)}, _
    '                                   {"@GRUPO", SqlDbType.VarChar, UCase(strGrupo)}, _
    '                                   {"@NOMBRE", SqlDbType.VarChar, UCase(strNOMProd)}}
    '    dsConsultaDatos = objCom.ExecSPDataSetCP("SP_BANDEJA_PRODUCTOS", Parametros)
    '    Return dsConsultaDatos
    'End Function


    Public Function CboInsumo(ByVal strIDInsumo As String, ByVal strGrupo As String, ByVal strInsumo As String) As DataSet
        Dim dsConsultaDatos As DataSet
        Dim objCom As New BaseDatos
        Dim Parametros(,) As Object = {{"@ID", SqlDbType.VarChar, UCase(strIDInsumo)}, _
                                       {"@GRUPO", SqlDbType.VarChar, UCase(strGrupo)}, _
                                       {"@NOMBRE", SqlDbType.VarChar, UCase(strInsumo)}}
        dsConsultaDatos = objCom.ExecSPDataSetCP("SP_BANDEJA_INSUMOS", Parametros)
        Return dsConsultaDatos
    End Function

End Class
